#$Id: read.keys.and.vals.R 368 2009-03-01 08:47:02Z cameron.bracken $

read.keys.and.vals <- function(filename){
	rundes <- readLines(filename,n=1)
	x <- read.table(filename,sep=',',skip=1,fill=T,colClasses = "character")
	names(x) <- c('key','val')
	v <- list()
	
	v[['rundes']] <- rundes
	for(i in seq(length(x$key))){
		v[[x$key[i]]] <- x$val[i]
	}
	v
}
